Imports System.Xml
Imports System.Data.SqlClient
Public Class dImpRecCheque
  Public Function Insertar(ByVal IdRecibo as String,ByVal IdCheque as String) as BOOLEAN
     Dim Parametros As ArrayList = New ArrayList
     if IdRecibo <> "" then 
       Parametros.Add(New SqlParameter("@pEIdRecibo", IdRecibo))
     End If
     if IdCheque <> "" then 
       Parametros.Add(New SqlParameter("@pEIdCheque", IdCheque))
     End If
     Return dconexion.ABM("STORE_TblImpRecChequeALTA", Parametros)
  End Function
  Public Function Eliminar(ByVal IdImpRecCheque as String) as BOOLEAN
     Dim Parametros As ArrayList = New ArrayList
     if IdImpRecCheque <> "" then 
       Parametros.Add(New SqlParameter("@pEIdImpRecCheque", IdImpRecCheque))
     End If
     Return dconexion.ABM("STORE_TblImpRecChequeELIMINAR", Parametros)
  End Function
  Public Function BuscarFiltrado(ByVal IdImpRecCheque as String,ByVal IdRecibo as String,ByVal IdCheque as String) as DATASET
     Dim Parametros As ArrayList = New ArrayList
     if IdImpRecCheque <> "" then 
       Parametros.Add(New SqlParameter("@pEIdImpRecCheque", IdImpRecCheque))
     End If
     if IdRecibo <> "" then 
       Parametros.Add(New SqlParameter("@pEIdRecibo", IdRecibo))
     End If
     if IdCheque <> "" then 
       Parametros.Add(New SqlParameter("@pEIdCheque", IdCheque))
     End If
     Return dconexion.Consultar("STORE_TblImpRecChequeBUSCARFILTRADO", Parametros)
  End Function
End Class
